## button directives for dialogs

proc defbutton {name args} {
  eval button $name $args
  $name configure -bd 2
  bind [winfo toplevel $name] <Return> "$name invoke"
}

proc cancelbutton {name args} {
  eval button $name $args
  # bind escape key with button
  bind [winfo toplevel $name] <Key-Escape> "$name invoke"
  return $name
}
